C 10 


RRR eR Re ee 
ee ee 
Ck ak ek ae ce ee oe ee a oe wee ane aed oe coe a rg 
ieee 


aaa aaa 
aaa aaa 
aaa aaa 
aaa aaa 
aaa aaa 
aaa aaa 
aaa aaa 
aaa acoa 
aaa aaa 
SoGO00OGOO00GO0G0G0G0R008aR 
So0O0O0GOGoOOG000000000a8Ra 
SOoGHKHGCHHGHAaHhaaeSaSaaaoaaa 
wud ada 
wutud Lk ee ha 
a Ld th ed 
dd A hd bad Ra dd ol 
ed bad Aad tu had 
bd a kd Lh Ah ed 
tks kd rezeeneey Ve TeCnee) 
ad Ld Ad kd Ad 
a Ld ad ed hs a 
aeeeered a as a wu 
ad kd ted bd Ld tad a bad 
kad LOS LD tad Ld Abs 


ee heed enone hoc seeLecsuelucivolveleulveseelvelvenvenveneey 
Se deed eke edn oho heeheesveLlehveleeseelvesvesvesuureulvulve) 
Shed eee heesueLvelue. UlveleelvelvsseeLlvelvulvesewreel 


**F ]LE®**#1D**KEYIMMINP 
$ 
: 
3 
KK KK EEEEEEEEEE YY YY IIIIII MM MM MM MM IIIIII NN NN PPPPPPPP $ 
KK KK EEEEEEEEEE YY yY IIIIII MM MM OMM MM IIIIII NN NN PPPPPPPP : 
KK KK EE YY YY I] MMMM MAMMA OMMMM OMIM II NN NN PP PP ° 
KK KK EE YY YY I] MMMM MMMM OMMMM OMMMM II NN PP PP é 
KK KK EE YY yy I] 44 MM = 6OMM OUMM OM OMM li NNNN NN PP PP : 
KK KK EE yy yy I] MM 4M 64M «OMM COMM OMM II NNNN NN PP pp $ 
KKKKKK EEEEEEEE YY II MM MM MM II NN NN NN~ PPPPPPPP : 
KKKKKK EEEEEEEE YY II MM MM OM MM Il NN NN NN PPPPPPPP F 
KK K EE YY I] MM MA OM MM II NN NNNN PP ; 
KK KK EE YY I] MM MM MM MM II NN NNNN PP : 
KK KK EE YY II MM MM MM MM II NN NN PP sees P4 
KK KK EEEEEEEEEE YY IIIIII MM MM OMM MM IIIIII NN NN PP eeu “ 
KK KK EEEEEEEEEE YY IIII1I MM MM OMM MM IIIIII NN NN PP ern : 
LL IIIIII SSSSSSSS 
LL IIIII1 SSSSSSSS 
LL II SS 
LL II SS 
LL 1] SS | 
LL II SS 
LL I] SSSSSS 
LL I] SSSSSS 
LL II SS 
LL II SS 
LL I] SS 
LL I] ss 
LLLLLLLLLL III SSSSSSSS 
LELLLLLLLLL III! SSSSSSSS 


SODWNOA NE WN $0 OONAUE WN (OO DNAUNE WN SH OOONAOUES WN SO OONOU EWN 


MEER EEE SE & FAWN NAIR PPO PONPONINPOPONPY OO ee 


| 
F 9 | 
EDTSKEYIMMINP = keypad input 16-Sep-1984 00:44: AX-11 Bliss-32 V4.0-74 : 1 
apap onc 1erge8= 138s 99:33:38 eT ees Tae Ne OL tt oF ti 
B05 8 ROMULE EBTEREHTomTOn ¢ Reybad input” | keypad { 
eypa n 
0 § IDENT = *V04~000" 1p ae rete: KEYIMMIMP.BLI Edit: JBS1006 
s 


005 BEGIN 


Vee E EEE EEE EEE EERAAEEERREEREEEEAEEEE 


0009 ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

00 ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 

0 is ALL RIGHTS RESERVED. 

0 ie THIS SOFTWARE Is FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
0 '® ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
00 ie INCLUSION OF HE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
00 ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
99 i OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
00 is 

00 '® pe INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
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i SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
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tt DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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FACILITY: EDT -=- The DEC Standard Editor 

! ABSTRACT: 

keypad input 

ENVIRONMENT: Runs at any access mode - AST reentrant 

AUTHOR: Bob Kushlis, CREATION DATE: April 7, 1979 

! MODIFIED BY: 

i 1-001 = Original. ee 24-Feb-1981. This module was created by 

$ guiresy ine reutine IMMEDIATE_INPLUT from module KEYTRAN, 

1- - Regularize headers. JBS 10-Mar-1981 

' 
i] 


: 0 8 
' 4 “$0 : - Add another parameter to pass to TI_RDCMDLN. STS 21-Oct-1981 
} 1-004 - Improve the appearance of the Listing. JBS 14-Jun-198 
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Declarations 1 
1 SSBTTL ‘Declarations’ 
| TABLE OF CONTENTS: 


cores YIMMINP EDTSKEYIMMINP = keypad input 


Wro 


; 1 

$ 4 1 

: 8 $j 

: $ 0 § 1 REQUIRE ‘EDTSRC:TRAROUNAM'; 
3 8 495 1 

; 9 496 1 FORWARD ROUTINE 

; 60 497 1 EDTSSKPAD_INP; 

; 661 98 (1 

3 6¢ 99 1! 

:¢ 9300 1! INCLUDE FILES: 

; | (64 501 1! 

s 65 0502 1 

; «666 05 1 REQUIRE ‘EDTSRC:EDTREQ'; 
3; «667 06 1 

; 68 0639 1! 

; «669 0640 1 ! MACROS: 

: 70 0641 1! 

; #671 0642 1! NONE 

3 ue 06435 1! 

oe 0644 1 ! EQUATED SYMBOLS: 

> 7% 0645 7! 

; #675 0646 1! NONE 

; 76 0647 1! 

Tbe 0648 1 ' OWN STORAGE: 

; «678 0649 1! 

: 79 0650 1! NONE 

; © ©80 0651 1! 

; «81 0652 1 | EXTERNAL REFERENCES: 
; «8 065 


In the routine 
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TSKEYIMMINP = keypad input 16-Sep-1984 744: AX-11 Bliss-32 V4.0-74 

TSSKPAD_INP = keypad input 13-808=1 382 99:39:38 LED T SRCIKEYIMMINP-BL I: 
5 5 ZSBTTL ‘EDTSSKPAD_INP = keypad input’ 

6 : GLOBAL ROUTINE EDTSSKPAD_INP ( ! keypad input 
8 6 8 ! Parameter to EDTS$TI_RDCMDLN 
89 065 TERM i Parameter to EDT$$TI-RDCMDLN 
90 269 RES. TERM ! parameter from EDTSSTI_RDCMDLN 
= 

83 

6 1++ 

4 FUNCTIONAL DESCRIPTION: 


This routine adds a couple of parameters then calls EDTSSTI_RDCMDLN . 
FORMAL PARAMETERS: 


2282 
ooo AAAS 


peas C Parameter to EDTS$TI_RDCMDLN 
berg TERM Parameter to EDTS$TI_RDCMDLN 
pore RES_TERM Parameter from EDTS$TI_RDCMDLN 
0676 IMPLICIT INPUTS: 

0677 

0678 EDTSS$A_CMD_BUF 

0679 

0680 

0681 

068 NONE 


; 
; 

; 

; 

; 

; 

; 

; 

; 

{ 

; 

; 

; 

i IMPLICIT OUTPUTS: 

; 

{ ROUTINE VALUE: 

; Same as EDTS$TI_RDCMDLN 
: SIDE EFFECTS: 
NONE 
* 


BEGIN 


EXTERNAL ROUTINE 
EDTS$TI_RDCMDLN; 


EXTE 


WROROTOROPONoNononony 3 3 a 


VSO RUD PO OSNONEUINVIODSR UPAR ome ob oe 


RNAL 
EDTS$$A_CMD_BUF ; 
RETURN (EDTS$TI_RDCMDLN (.C, .EDTS$A_CMD_BUF 


Pointer to next char in command buffer 


EDTSSA_CMD_BUF, .TERM, .RES_TERM)); 


Y 
P 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
| 
1 ! of routine EDTS$KPAD_INP 
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DISKEYIMMINP EDTSKEYIMMINP - keypad input 
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EDTSKEYIMMINP = keypad input 14. -$e9-1984 t 99:6 44: 38 AX-11 Bliss-32 V4. EPs Page 4 
EDTSSKPAD_INP = keypad input 14-Sep-1984 23: EDT. SRCIJKEYIMMINP.BLI;1 (3) 


-PSECT _EDTSCODE,NOWRT, SHR, PIC,2 


0004 00000 sENTRY EDTSSKPAD of fy x R2 ; 0657) 

52 000000006 00 9 00002 MOVAB Fores Y: 36,8 ; 
7E 08 AC 7D 00009 TERM ; 0702 

D 00000 PUSHL ; 

62 DD OO00F PUSHL wes Sly 5 

04 Ag DD 00011 PUSHL ; 

000000006 00 05 FB 00014 CALLS #5, EDTSS$STI_RDCMDLN 3 
4 00018 RET ; 0703 


; Routine Size: 28 bytes, Routine Base: _EDTSCODE + 0000 


0704 1 
0705 1 !<BLF/PAGE> 


9 
EDTSKEY IMMINP DISKEYIMMINP = keypad input 18-5 Sep-19 AX-11 Bliss The 2 V4.0-74 Pa 
OL 600 EDISSEPAD. INP = keypad input 14-Sep 71982 99: 333 $f feor. SREIKEYI MMINP.BLI; 
: 138 O70? 1 END ! of module EDTSKEYIMMINP 
54 708 ) ELUDOM 
; PSECT SUMMARY 
3 Name Bytes Attributes 
> _EDTSCODE 28 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
: Library Statistics 
; qcmaneee SyGh@lg sencesse Pages Processing 
: File Total Loaded Percent Mapped Time 
; ~$25580Ua28: EDT ~SRCJEDT.L32;1 377 0 : 40 00:00. 
3; _$255$DUA28:CEDT.SRCIPSECTS.L32;1 2 1 5 7 0:00.1 
3 COMMAND QUALIFIERS 
; re eee RETA. EP TIALES )/METAREEOALE/L LOM ESD SERT SAM IP/ORIMORUGTREY SI? MSRC$:KEYIMMINP.BLI/UPDATE=(ENHS:K 
3; Size: 28 code + 0 data bytes 
; Run Time: : 
3; Elapsed Time: uf 11.2 
3 Lines/CPU Min: 4778 
3 ae Ah Bane 12654 
3 pre Used: 53 pages 
; Compilation Complete 
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